home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).zip / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).do / KICK.IT.OFF.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  27 lines
  1. 10  REM  KICK.IT.OFF
  2. 15 D$ =  CHR$(4)
  3. 20  TEXT : SPEED= 255: HOME 
  4. 30  VTAB 4: HTAB 6: PRINT "EXECUTABLE ADVERTISING  APR 83": PRINT 
  5. 35  PRINT : HTAB 10: PRINT "A = ABOUT THIS DISK"
  6. 40  PRINT : HTAB 10: PRINT "B = BACK ISSUE INDEX"
  7. 60  PRINT : HTAB 10: PRINT "C = SOFT ADS"
  8. 65  PRINT : HTAB 10: PRINT "D = SOFT PALS"
  9. 70  PRINT : HTAB 10: PRINT "E = COOKBOOK REVISITED"
  10. 75  PRINT : HTAB 10: PRINT "F = Q & D RAT FIX"
  11. 80  PRINT : HTAB 10: PRINT "G = QUIT"
  12. 90  PRINT : HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$;
  13. 95  IF R$ = "A" GOTO 1000
  14. 110  IF R$ = "B" GOTO 2000
  15. 120  IF R$ = "C" GOTO 3000
  16. 130  IF R$ = "D" GOTO 4000
  17. 135  IF R$ = "E" GOTO 5000
  18. 140  IF R$ = "F" GOTO 6000
  19. 150  IF R$ = "G" GOTO 7000
  20. 200  GOTO 20
  21. 1000  PRINT D$;"RUN SECOND.DISK.PROG"
  22. 2000  PRINT D$;"RUN BACK.ISSUE.PROG"
  23. 3000  PRINT D$;"RUN SOFT.ADS"
  24. 4000  PRINT D$;"RUN SOFT.PALS"
  25. 5000  PRINT D$;"RUN COOKBOOK.REVISITED"
  26. 6000  PRINT D$;"RUN Q & D RAT FIX"
  27. 7000  TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."